home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_18026.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  8.1 KB  |  428 lines
  1. -- card: 18026 from stack: in
  2. -- bmap block id: 18379
  3. -- flags: 0000
  4. -- background id: 5931
  5. -- name: noMercury
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global time1
  9.   global Silver
  10.   global Mercury
  11.   global Lead
  12.   global key
  13.   put empty into bkgnd field "info"
  14.   hide card field "info2"
  15.   put empty into card field "info1"
  16.   show card field "info1"
  17.   put "Click Here to" into line 2 of card field "info1"
  18.   put "Continue When Ready" into line 3 of card field "info1"
  19.   show card button "info1"
  20.   set the highlight of card button "info1" to true
  21. end opencard
  22.  
  23.  
  24.  
  25.  
  26. on check
  27.   global Silver
  28.   global Mercury
  29.   global Lead
  30.   global reagent
  31.   global route
  32.   global score
  33.  
  34. end check
  35.  
  36.  
  37.  
  38. -- part 4 (field)
  39. -- low flags: 81
  40. -- high flags: 0004
  41. -- rect: left=0 top=20 right=178 bottom=387
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 21
  46. -- text size: 24
  47. -- style flags: 0
  48. -- line height: 32
  49. -- part name: note
  50.  
  51.  
  52. -- part 11 (button)
  53. -- low flags: 00
  54. -- high flags: 2000
  55. -- rect: left=3 top=44 right=106 bottom=54
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Hydrochloric Acid
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   global route
  67.   global reagent
  68.   global lastClick
  69.  
  70.   if the seconds - lastClick < 4 then exit mouseup
  71.   else put the seconds into lastClick
  72.   get the short name of me
  73.   put it into reagent
  74.   check
  75.  
  76.  
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 12 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=64 top=44 right=106 bottom=115
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Nitric Acid
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.  
  96.   global reagent
  97.  
  98.   global lastClick
  99.  
  100.   if the seconds - lastClick < 4 then exit mouseup
  101.   else put the seconds into lastClick
  102.   get the short name of me
  103.   put it into reagent
  104.   check
  105.  
  106.  
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 13 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=125 top=44 right=106 bottom=176
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Distilled Water
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.  
  126.   global reagent
  127.   global lastClick
  128.  
  129.   if the seconds - lastClick < 4 then exit mouseup
  130.   else put the seconds into lastClick
  131.   get the short name of me
  132.   put it into reagent
  133.   check
  134.  
  135.  
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 14 (button)
  141. -- low flags: 00
  142. -- high flags: 2000
  143. -- rect: left=184 top=44 right=106 bottom=235
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Potassium Dichromate
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   global route
  155.   global reagent
  156.   global lastClick
  157.  
  158.   if the seconds - lastClick < 4 then exit mouseup
  159.   else put the seconds into lastClick
  160.   get the short name of me
  161.   put it into reagent
  162.   check
  163.  
  164.  
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 15 (button)
  170. -- low flags: 00
  171. -- high flags: 2000
  172. -- rect: left=246 top=44 right=106 bottom=297
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Ammonia
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   global route
  184.   global reagent
  185.   global lastClick
  186.  
  187.   if the seconds - lastClick < 4 then exit mouseup
  188.   else put the seconds into lastClick
  189.   get the short name of me
  190.   put it into reagent
  191.   check
  192.  
  193.  
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 22 (field)
  199. -- low flags: 81
  200. -- high flags: 0000
  201. -- rect: left=389 top=212 right=283 bottom=507
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 3
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: hold
  210.  
  211.  
  212. -- part 29 (field)
  213. -- low flags: 81
  214. -- high flags: 0001
  215. -- rect: left=161 top=212 right=319 bottom=195
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 0
  219. -- font id: 3
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: f
  224.  
  225.  
  226. -- part 36 (button)
  227. -- low flags: 00
  228. -- high flags: 8002
  229. -- rect: left=434 top=205 right=254 bottom=509
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Flow Chart
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   push card
  241.   go to card id 7591
  242.   put 1 into zz
  243.   repeat until zz = 4
  244.     set the highlight of card button step5 to true
  245.     wait 30
  246.     set the highlight of card button step5 to false
  247.     wait 30
  248.     put zz+1 into zz
  249.   end repeat
  250.  
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 38 (field)
  256. -- low flags: 81
  257. -- high flags: 0004
  258. -- rect: left=1 top=112 right=205 bottom=390
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 3
  263. -- text size: 14
  264. -- style flags: 256
  265. -- line height: 18
  266. -- part name: Message
  267. ----- HyperTalk script -----
  268. on mouseup
  269.   hide card field "message"
  270. end mouseup
  271.  
  272.  
  273.  
  274. -- part 40 (field)
  275. -- low flags: 81
  276. -- high flags: 0004
  277. -- rect: left=0 top=7 right=206 bottom=416
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 21
  282. -- text size: 18
  283. -- style flags: 0
  284. -- line height: 24
  285. -- part name: info
  286.  
  287.  
  288. -- part 41 (button)
  289. -- low flags: 00
  290. -- high flags: 0000
  291. -- rect: left=0 top=115 right=172 bottom=383
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 1
  295. -- font id: 0
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 16
  299. -- part name: cv2
  300.  
  301.  
  302. -- part 43 (field)
  303. -- low flags: 81
  304. -- high flags: 0004
  305. -- rect: left=0 top=0 right=331 bottom=512
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 2
  310. -- text size: 18
  311. -- style flags: 0
  312. -- line height: 24
  313. -- part name: dist
  314.  
  315.  
  316. -- part 44 (field)
  317. -- low flags: 81
  318. -- high flags: 0004
  319. -- rect: left=2 top=184 right=296 bottom=159
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 21
  324. -- text size: 18
  325. -- style flags: 0
  326. -- line height: 24
  327. -- part name: info1
  328.  
  329.  
  330. -- part 45 (button)
  331. -- low flags: 80
  332. -- high flags: 0000
  333. -- rect: left=0 top=183 right=297 bottom=157
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: info1
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   set the highlight of card button "info1" to false
  345.   Hide card button "info1"
  346.   Hide card field "info1"
  347.   show card field "info2"
  348.   put "Decanting Liquid into" into line 3 of card field "info2"
  349.   put "New Test Tube" into line 5 of card field "info2"
  350.  
  351.   put "for Silver ion Test" into line 7 of card field "info2"
  352.   wait 2 seconds
  353.   go to card "siverTest"
  354.   set the lockscreen to true
  355.   go back
  356.   hide card field "info2"
  357.   go to card "SilverTest"
  358.   set the lockscreen to false
  359. end mouseUp
  360.  
  361.  
  362.  
  363.  
  364. -- part 46 (field)
  365. -- low flags: 01
  366. -- high flags: 0001
  367. -- rect: left=0 top=12 right=327 bottom=432
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 2
  372. -- text size: 18
  373. -- style flags: 0
  374. -- line height: 24
  375. -- part name: info2
  376.  
  377.  
  378. -- part contents for card part 4
  379. ----- text -----
  380. Please Wait While
  381. Computer Selects
  382. an Unknown for You
  383. to Analyze
  384.  
  385. -- part contents for card part 40
  386. ----- text -----
  387. Please Click on Next Reagent
  388.  
  389. -- part contents for card part 38
  390. ----- text -----
  391. Check Flow Chart
  392.  
  393. Hot Water Bath not used 
  394.  
  395. at this time
  396.  
  397. -- part contents for card part 43
  398. ----- text -----
  399.  
  400.  
  401.  
  402.  
  403. Adding Distilled water
  404.  
  405. to Test Tube
  406.  
  407. and agitating Precipitate
  408.  
  409. -- part contents for card part 46
  410. ----- text -----
  411.  
  412.  
  413. Decanting Liquid into
  414.  
  415. New Test Tube
  416.  
  417. for Silver ion Test
  418.  
  419. -- part contents for card part 44
  420. ----- text -----
  421.  
  422. Click Here to
  423. Continue When Ready
  424.  
  425. -- part contents for background part 8
  426. ----- text -----
  427. Result of Adding Ammonia 
  428. No evidence of precipitate